home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue36 / construc / STARTBOB.DPR < prev   
Encoding:
Text File  |  1998-06-30  |  709 b   |  29 lines
  1. program StartBob;
  2. {$APPTYPE CONSOLE}
  3. {$I-}
  4. uses
  5.   Windows;
  6. begin
  7.   writeln('content-type: text/html');
  8.   writeln;
  9.   writeln('<HTML>');
  10.   writeln('<HEAD>');
  11.   writeln('<TITLE>RobotBob/Start</TITLE>');
  12.   writeln('</HEAD>');
  13.   writeln('<BODY BACKGROUND="/gif/back.gif">');
  14.   writeln('<FONT FACE="Comic Sans MS"COLOR=000077>');
  15.   writeln('<H1>RobotBob/Start v1.0</H1>');
  16.   writeln('<HR>');
  17.   writeln('<P>');
  18.   ChDir('cgi-bin');
  19.   if FindWindow('TApplication','MailBob') = 0 then
  20.   begin
  21.     writeln('WinExec RobotBob/Mail = ');
  22.     writeln(WinExec('MailBob.exe',SW_NORMAL))
  23.   end
  24.   else
  25.     writeln('RobotBob/Mail already running...');
  26.   writeln('</BODY>');
  27.   writeln('</HTML>');
  28. end.
  29.